home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
CD Fun House 1
/
CD Fun House (Wayzata Technology).iso
/
•The School House•
/
Astromacronomer •••
/
BASIC Runtime
/
BASIC Runtime.rsrc
/
CODE_3.txt
< prev
next >
Wrap
Text File
|
1986-09-30
|
44KB
|
792 lines
# near model CODE resource
# jump table entries: 2800-2813 (14 of them)
export_351:
00000000 7800 moveq.l D4, 0x00
00000002 6002 bra +0x4 /* 00000006 */
export_350:
00000004 7801 moveq.l D4, 0x01
label00000006:
00000006 526D FE16 addq.w [A5 - 0x1EA], 1
0000000A 6100 04C6 bsr +0x4C8 /* 000004D2 */
0000000E 2004 move.l D0, D4
00000010 6100 04F4 bsr +0x4F6 /* 00000506 */
00000014 2F08 move.l -[A7], A0
00000016 6100 051A bsr +0x51C /* 00000532 */
0000001A 3F01 move.w -[A7], D1
0000001C 3F02 move.w -[A7], D2
0000001E A891 syscall LineTo
00000020 6100 0540 bsr +0x542 /* 00000562 */
00000024 205F movea.l A0, [A7]+
00000026 536D FE16 subq.w [A5 - 0x1EA], 1
0000002A 4E75 rts
export_352:
0000002C 526D FE16 addq.w [A5 - 0x1EA], 1
00000030 4EAD 0A22 jsr [A5 + 0xA22 /* export_320 */]
00000034 D4FC 0014 add.w A2, 0x14
00000038 2F12 move.l -[A7], [A2]
0000003A 2F0A move.l -[A7], A2
0000003C 6100 0494 bsr +0x496 /* 000004D2 */
00000040 3602 move.w D3, D2
00000042 4843 swap.w D3
00000044 3601 move.w D3, D1
00000046 2F08 move.l -[A7], A0
00000048 4EAD 09F2 jsr [A5 + 0x9F2 /* export_314 */]
0000004C 4267 clr.w -[A7]
0000004E 2F03 move.l -[A7], D3
00000050 486D F418 pea.l [A5 - 0xBE8]
00000054 A8AD syscall PtInRect
00000056 301F move.w D0, [A7]+
00000058 6604 bne +0x6 /* 0000005E */
0000005A 76FF moveq.l D3, 0xFFFFFFFF
0000005C 6010 bra +0x12 /* 0000006E */
label0000005E:
0000005E 4267 clr.w -[A7]
00000060 2F03 move.l -[A7], D3
00000062 A865 syscall GetPixel
00000064 361F move.w D3, [A7]+
00000066 6702 beq +0x4 /* 0000006A */
00000068 7603 moveq.l D3, 0x03
label0000006A:
0000006A 0643 001E addi.w D3, 0x1E
label0000006E:
0000006E 4EAD 01AA jsr [A5 + 0x1AA /* export_49 */]
00000072 205F movea.l A0, [A7]+
00000074 245F movea.l A2, [A7]+
00000076 249F move.l [A2], [A7]+
00000078 536D FE16 subq.w [A5 - 0x1EA], 1
0000007C 4E75 rts
export_353:
0000007E 526D FE16 addq.w [A5 - 0x1EA], 1
00000082 4E56 FFF8 link A6, -0x0008
00000086 43EE FFF8 lea.l A1, [A6 - 0x8]
0000008A 6100 0402 bsr +0x404 /* 0000048E */
0000008E 6100 0474 bsr +0x476 /* 00000504 */
00000092 6750 beq +0x52 /* 000000E4 */
00000094 4EAD 0C92 jsr [A5 + 0xC92 /* export_398 */]
00000098 4EAD 02C2 jsr [A5 + 0x2C2 /* export_84 */]
0000009C 4EAD 0422 jsr [A5 + 0x422 /* export_128 */]
000000A0 0C00 0042 cmpi.b D0, 0x42 /* 'B' */
000000A4 6600 022E bne +0x230 /* 000002D4 */
000000A8 4EAD 00BA jsr [A5 + 0xBA /* export_19 */]
000000AC 1021 move.b D0, -[A1]
000000AE 5300 subq.b D0, 1
000000B0 6724 beq +0x26 /* 000000D6 */
000000B2 5300 subq.b D0, 1
000000B4 6600 021E bne +0x220 /* 000002D4 */
000000B8 1029 0002 move.b D0, [A1 + 0x2]
000000BC 0200 00DF andi.b D0, 0xDF
000000C0 0C40 0046 cmpi.w D0, 0x46 /* 'F' */
000000C4 6600 020E bne +0x210 /* 000002D4 */
000000C8 2F08 move.l -[A7], A0
000000CA 6100 0466 bsr +0x468 /* 00000532 */
000000CE 486E FFF8 pea.l [A6 - 0x8]
000000D2 A8A2 syscall PaintRect
000000D4 602A bra +0x2C /* 00000100 */
label000000D6:
000000D6 2F08 move.l -[A7], A0
000000D8 6100 0458 bsr +0x45A /* 00000532 */
000000DC 486E FFF8 pea.l [A6 - 0x8]
000000E0 A8A1 syscall FrameRect
000000E2 601C bra +0x1E /* 00000100 */
label000000E4:
000000E4 2F08 move.l -[A7], A0
000000E6 6100 044A bsr +0x44C /* 00000532 */
000000EA 322E FFFA move.w D1, [A6 - 0x6]
000000EE 342E FFF8 move.w D2, [A6 - 0x8]
000000F2 4EAD 0A62 jsr [A5 + 0xA62 /* export_328 */]
000000F6 3F2E FFFE move.w -[A7], [A6 - 0x2]
000000FA 3F2E FFFC move.w -[A7], [A6 - 0x4]
000000FE A891 syscall LineTo
label00000100:
00000100 6100 0460 bsr +0x462 /* 00000562 */
00000104 205F movea.l A0, [A7]+
00000106 4E5E unlink A6
00000108 536D FE16 subq.w [A5 - 0x1EA], 1
0000010C 4E75 rts
export_354:
0000010E 526D FE16 addq.w [A5 - 0x1EA], 1
00000112 4E56 FFE4 link A6, -0x001C
00000116 6100 0394 bsr +0x396 /* 000004AC */
0000011A 3D41 FFF6 move.w [A6 - 0xA], D1
0000011E 3D42 FFF4 move.w [A6 - 0xC], D2
00000122 4EAD 02C2 jsr [A5 + 0x2C2 /* export_84 */]
00000126 4EAD 045A jsr [A5 + 0x45A /* export_135 */]
0000012A 3D42 FFF0 move.w [A6 - 0x10], D2
0000012E 3D42 FFF2 move.w [A6 - 0xE], D2
00000132 6100 03D0 bsr +0x3D2 /* 00000504 */
00000136 7600 moveq.l D3, 0x00
00000138 6100 0156 bsr +0x158 /* 00000290 */
0000013C 2D41 FFE4 move.l [A6 - 0x1C], D1
00000140 49EE FFEC lea.l A4, [A6 - 0x14]
00000144 3883 move.w [A4], D3
00000146 0643 0168 addi.w D3, 0x168
0000014A 6100 0144 bsr +0x146 /* 00000290 */
0000014E 2D41 FFE8 move.l [A6 - 0x18], D1
00000152 9654 sub.w D3, [A4]
00000154 4443 neg.w D3
00000156 6F04 ble +0x6 /* 0000015C */
00000158 0443 0168 subi.w D3, 0x168
label0000015C:
0000015C 3D43 FFEE move.w [A6 - 0x12], D3
00000160 765A moveq.l D3, 0x5A
00000162 9654 sub.w D3, [A4]
00000164 3883 move.w [A4], D3
00000166 4EAD 00C2 jsr [A5 + 0xC2 /* export_20 */]
0000016A 6612 bne +0x14 /* 0000017E */
0000016C 4A2D F241 tst.b [A5 - 0xDBF]
00000170 6756 beq +0x58 /* 000001C8 */
00000172 49EE FFF2 lea.l A4, [A6 - 0xE]
00000176 2B6D FEC2 ECA6 move.l [A5 - 0x135A], [A5 - 0x13E]
0000017C 6030 bra +0x32 /* 000001AE */
label0000017E:
0000017E 4EAD 02C2 jsr [A5 + 0x2C2 /* export_84 */]
00000182 4EAD 0472 jsr [A5 + 0x472 /* export_138 */]
00000186 4EAD 011A jsr [A5 + 0x11A /* export_31 */]
0000018A 4EAD 01A2 jsr [A5 + 0x1A2 /* export_48 */]
0000018E 6B00 02CE bmi +0x2D0 /* 0000045E */
00000192 49EE FFF2 lea.l A4, [A6 - 0xE]
00000196 262D F1D4 move.l D3, [A5 - 0xE2C]
0000019A 4EAD 018A jsr [A5 + 0x18A /* export_45 */]
0000019E 5340 subq.w D0, 1
000001A0 660C bne +0xE /* 000001AE */
000001A2 262D F1D4 move.l D3, [A5 - 0xE2C]
000001A6 4EAD 01C2 jsr [A5 + 0x1C2 /* export_52 */]
000001AA 49EE FFF0 lea.l A4, [A6 - 0x10]
label000001AE:
000001AE 2F2D ECA6 move.l -[A7], [A5 - 0x135A]
000001B2 3614 move.w D3, [A4]
000001B4 4EAD 01AA jsr [A5 + 0x1AA /* export_49 */]
000001B8 4EAD 011A jsr [A5 + 0x11A /* export_31 */]
000001BC 261F move.l D3, [A7]+
000001BE 4EAD 01BA jsr [A5 + 0x1BA /* export_51 */]
000001C2 4EAD 0032 jsr [A5 + 0x32 /* export_2 */]
000001C6 3883 move.w [A4], D3
label000001C8:
000001C8 2F08 move.l -[A7], A0
000001CA 6100 0366 bsr +0x368 /* 00000532 */
000001CE 41EE FFF8 lea.l A0, [A6 - 0x8]
000001D2 302E FFF4 move.w D0, [A6 - 0xC]
000001D6 906E FFF2 sub.w D0, [A6 - 0xE]
000001DA 30C0 move.w [A0]+, D0
000001DC 302E FFF6 move.w D0, [A6 - 0xA]
000001E0 906E FFF0 sub.w D0, [A6 - 0x10]
000001E4 30C0 move.w [A0]+, D0
000001E6 302E FFF4 move.w D0, [A6 - 0xC]
000001EA D06E FFF2 add.w D0, [A6 - 0xE]
000001EE 5240 addq.w D0, 1
000001F0 30C0 move.w [A0]+, D0
000001F2 302E FFF6 move.w D0, [A6 - 0xA]
000001F6 D06E FFF0 add.w D0, [A6 - 0x10]
000001FA 5240 addq.w D0, 1
000001FC 30C0 move.w [A0]+, D0
000001FE 486E FFF8 pea.l [A6 - 0x8]
00000202 3F2E FFEC move.w -[A7], [A6 - 0x14]
00000206 3F2E FFEE move.w -[A7], [A6 - 0x12]
0000020A A8BE syscall FrameArc
0000020C 202E FFE4 move.l D0, [A6 - 0x1C]
00000210 6702 beq +0x4 /* 00000214 */
00000212 6116 bsr +0x18 /* 0000022A */
label00000214:
00000214 202E FFE8 move.l D0, [A6 - 0x18]
00000218 6702 beq +0x4 /* 0000021C */
0000021A 610E bsr +0x10 /* 0000022A */
label0000021C:
0000021C 6100 0344 bsr +0x346 /* 00000562 */
00000220 205F movea.l A0, [A7]+
00000222 4E5E unlink A6
00000224 536D FE16 subq.w [A5 - 0x1EA], 1
00000228 4E75 rts
fn0000022A:
0000022A 362E FFF0 move.w D3, [A6 - 0x10]
0000022E 6132 bsr +0x34 /* 00000262 */
00000230 D66E FFF6 add.w D3, [A6 - 0xA]
00000234 3F03 move.w -[A7], D3
00000236 362E FFF2 move.w D3, [A6 - 0xE]
0000023A 6112 bsr +0x14 /* 0000024E */
0000023C 4443 neg.w D3
0000023E D66E FFF4 add.w D3, [A6 - 0xC]
00000242 3F03 move.w -[A7], D3
00000244 A893 syscall MoveTo
00000246 2F2E FFF4 move.l -[A7], [A6 - 0xC]
0000024A A891 syscall LineTo
0000024C 4E75 rts
fn0000024E:
0000024E 48E7 C0E0 movem.l -[A7], D0,D1,A0,A1,A2
00000252 1B7C 0004 ECFB move.b [A5 - 0x1305], 0x4
00000258 2B40 ECA6 move.l [A5 - 0x135A], D0
0000025C 4EAD 0112 jsr [A5 + 0x112 /* export_30 */]
00000260 6012 bra +0x14 /* 00000274 */
fn00000262:
00000262 48E7 C0E0 movem.l -[A7], D0,D1,A0,A1,A2
00000266 1B7C 0004 ECFB move.b [A5 - 0x1305], 0x4
0000026C 2B40 ECA6 move.l [A5 - 0x135A], D0
00000270 4EAD 010A jsr [A5 + 0x10A /* export_29 */]
label00000274:
00000274 2F2D ECA6 move.l -[A7], [A5 - 0x135A]
00000278 4EAD 01AA jsr [A5 + 0x1AA /* export_49 */]
0000027C 4EAD 011A jsr [A5 + 0x11A /* export_31 */]
00000280 261F move.l D3, [A7]+
00000282 4EAD 01BA jsr [A5 + 0x1BA /* export_51 */]
00000286 4EAD 0032 jsr [A5 + 0x32 /* export_2 */]
0000028A 4CDF 0703 movem.l D0,D1,A0,A1,A2, [A7]+
0000028E 4E75 rts
fn00000290:
00000290 7200 moveq.l D1, 0x00
00000292 4EAD 00C2 jsr [A5 + 0xC2 /* export_20 */]
00000296 673A beq +0x3C /* 000002D2 */
00000298 4EAD 02C2 jsr [A5 + 0x2C2 /* export_84 */]
0000029C 0C40 002C cmpi.w D0, 0x2C /* ',' */
000002A0 6730 beq +0x32 /* 000002D2 */
000002A2 4EAD 0472 jsr [A5 + 0x472 /* export_138 */]
000002A6 4EAD 011A jsr [A5 + 0x11A /* export_31 */]
000002AA 4A2D ECA6 tst.b [A5 - 0x135A]
000002AE 6714 beq +0x16 /* 000002C4 */
000002B0 6A0A bpl +0xC /* 000002BC */
000002B2 022D 007F ECA6 andi.b [A5 - 0x135A], 0x7F
000002B8 222D ECA6 move.l D1, [A5 - 0x135A]
label000002BC:
000002BC 262D FEBA move.l D3, [A5 - 0x146]
000002C0 4EAD 01BA jsr [A5 + 0x1BA /* export_51 */]
label000002C4:
000002C4 4EAD 0032 jsr [A5 + 0x32 /* export_2 */]
000002C8 3E3C 0168 move.w D7, 0x168
label000002CC:
000002CC 9647 sub.w D3, D7
000002CE 6EFC bgt -0x2 /* 000002CC */
000002D0 D647 add.w D3, D7
label000002D2:
000002D2 4E75 rts
label000002D4:
000002D4 4EED 0252 jmp [A5 + 0x252 /* export_70 */]
export_355:
000002D8 526D FE16 addq.w [A5 - 0x1EA], 1
000002DC 4E56 FFE2 link A6, -0x001E
000002E0 43EE FFEA lea.l A1, [A6 - 0x16]
000002E4 6100 017C bsr +0x17E /* 00000462 */
000002E8 6606 bne +0x8 /* 000002F0 */
000002EA 4EAD 0C92 jsr [A5 + 0xC92 /* export_398 */]
000002EE 600A bra +0xC /* 000002FA */
label000002F0:
000002F0 0805 0000 btst.b D5, 0x0
000002F4 67DE beq -0x20 /* 000002D4 */
000002F6 08C5 0001 bset.b D5, 0x1
label000002FA:
000002FA 4EAD 02C2 jsr [A5 + 0x2C2 /* export_84 */]
000002FE 4EAD 072A jsr [A5 + 0x72A /* export_225 */]
00000302 0805 0000 btst.b D5, 0x0
00000306 661A bne +0x1C /* 00000322 */
00000308 302E FFF0 move.w D0, [A6 - 0x10]
0000030C 906E FFEC sub.w D0, [A6 - 0x14]
00000310 34C0 move.w [A2]+, D0
00000312 322E FFEE move.w D1, [A6 - 0x12]
00000316 926E FFEA sub.w D1, [A6 - 0x16]
0000031A 34C1 move.w [A2]+, D1
0000031C 383C 0000 move.w D4, 0x0
00000320 6050 bra +0x52 /* 00000372 */
label00000322:
00000322 301A move.w D0, [A2]+
00000324 321A move.w D1, [A2]+
00000326 0805 0001 btst.b D5, 0x1
0000032A 6714 beq +0x16 /* 00000340 */
0000032C 3E2E FFEA move.w D7, [A6 - 0x16]
00000330 DE41 add.w D7, D1
00000332 3D47 FFEE move.w [A6 - 0x12], D7
00000336 3E2E FFEC move.w D7, [A6 - 0x14]
0000033A DE40 add.w D7, D0
0000033C 3D47 FFF0 move.w [A6 - 0x10], D7
label00000340:
00000340 383C 0002 move.w D4, 0x2
00000344 3F00 move.w -[A7], D0
00000346 4EAD 00C2 jsr [A5 + 0xC2 /* export_20 */]
0000034A 6724 beq +0x26 /* 00000370 */
0000034C 4EAD 02C2 jsr [A5 + 0x2C2 /* export_84 */]
00000350 43FA 00AA lea.l A1, [PC + 0xAA /* 000003FC, value 0xF200F1, cstring "" */]
00000354 4244 clr.w D4
label00000356:
00000356 4A51 tst.w [A1]
00000358 6700 FF7A beq -0x84 /* 000002D4 */
0000035C B059 cmp.w D0, [A1]+
0000035E 6704 beq +0x6 /* 00000364 */
00000360 5244 addq.w D4, 1
00000362 60F2 bra -0xC /* 00000356 */
label00000364:
00000364 4EAD 00BA jsr [A5 + 0xBA /* export_19 */]
00000368 43FA 009E lea.l A1, [PC + 0x9E /* 00000408, value 0x1070400 */]
0000036C 1831 4000 move.b D4, [A1 + D4.w]
label00000370:
00000370 301F move.w D0, [A7]+
label00000372:
00000372 3F00 move.w -[A7], D0
00000374 4EAD 02DA jsr [A5 + 0x2DA /* export_87 */]
00000378 301F move.w D0, [A7]+
0000037A 2F08 move.l -[A7], A0
0000037C 4EAD 084A jsr [A5 + 0x84A /* export_261 */]
00000380 4A40 tst.w D0
00000382 6702 beq +0x4 /* 00000386 */
00000384 4A41 tst.w D1
label00000386:
00000386 676A beq +0x6C /* 000003F2 */
00000388 42AE FFE2 clr.l [A6 - 0x1E]
0000038C 3D41 FFE6 move.w [A6 - 0x1A], D1
00000390 3D40 FFE8 move.w [A6 - 0x18], D0
00000394 47EE FFF2 lea.l A3, [A6 - 0xE]
00000398 284B movea.l A4, A3
0000039A 28CA move.l [A4]+, A2
0000039C 3E00 move.w D7, D0
0000039E 0647 000F addi.w D7, 0xF
000003A2 0247 FFF0 andi.w D7, 0xFFF0
000003A6 E64F lsr D7.w, 3
000003A8 38C7 move.w [A4]+, D7
000003AA CEC1 mulu.w D7, D1
000003AC 5847 addq.w D7, 4
000003AE B487 cmp.l D2, D7
000003B0 6500 00AC bcs +0xAE /* 0000045E */
000003B4 429C clr.l [A4]+
000003B6 38C1 move.w [A4]+, D1
000003B8 38C0 move.w [A4]+, D0
000003BA 4EAD 0A22 jsr [A5 + 0xA22 /* export_320 */]
000003BE 2452 movea.l A2, [A2]
000003C0 45EA 0002 lea.l A2, [A2 + 0x2]
000003C4 0805 0000 btst.b D5, 0x0
000003C8 670A beq +0xC /* 000003D4 */
000003CA 244B movea.l A2, A3
000003CC 266D F40A movea.l A3, [A5 - 0xBF6]
000003D0 47EB 0002 lea.l A3, [A3 + 0x2]
label000003D4:
000003D4 2F0A move.l -[A7], A2
000003D6 2F0B move.l -[A7], A3
000003D8 45EE FFEA lea.l A2, [A6 - 0x16]
000003DC 47EE FFE2 lea.l A3, [A6 - 0x1E]
000003E0 0805 0000 btst.b D5, 0x0
000003E4 6702 beq +0x4 /* 000003E8 */
000003E6 C54B exg A2, A3
label000003E8:
000003E8 2F0A move.l -[A7], A2
000003EA 2F0B move.l -[A7], A3
000003EC 3F04 move.w -[A7], D4
000003EE 42A7 clr.l -[A7]
000003F0 A8EC syscall CopyBits
label000003F2:
000003F2 205F movea.l A0, [A7]+
000003F4 4E5E unlink A6
000003F6 536D FE16 subq.w [A5 - 0x1EA], 1
000003FA 4E75 rts
000003FC 00F2 .incomplete
000003FE 00F1 .incomplete
00000400 F8BA F8BB .extension 0x8BA <<F/2-3/4>> // unimplemented
00000404 00F3 .incomplete
00000406 0000 0107 ori.b D0, 0x7
0000040A 0400 0200 subi.b D0, 0x0
export_356:
0000040E 526D FE16 addq.w [A5 - 0x1EA], 1
00000412 4E56 FFF8 link A6, -0x0008
00000416 43EE FFF8 lea.l A1, [A6 - 0x8]
0000041A 4EAD 0C7A jsr [A5 + 0xC7A /* export_395 */]
0000041E 4EAD 02C2 jsr [A5 + 0x2C2 /* export_84 */]
00000422 4EAD 0462 jsr [A5 + 0x462 /* export_136 */]
00000426 3602 move.w D3, D2
00000428 4EAD 02C2 jsr [A5 + 0x2C2 /* export_84 */]
0000042C 4EAD 0462 jsr [A5 + 0x462 /* export_136 */]
00000430 4EAD 02DA jsr [A5 + 0x2DA /* export_87 */]
00000434 6108 bsr +0xA /* 0000043E */
00000436 4E5E unlink A6
00000438 536D FE16 subq.w [A5 - 0x1EA], 1
0000043C 4E75 rts
fn0000043E:
0000043E 2F08 move.l -[A7], A0
00000440 4EAD 0C92 jsr [A5 + 0xC92 /* export_398 */]
00000444 4EAD 084A jsr [A5 + 0x84A /* export_261 */]
00000448 2F09 move.l -[A7], A1
0000044A 3F03 move.w -[A7], D3
0000044C 3F02 move.w -[A7], D2
0000044E 42A7 clr.l -[A7]
00000450 A8D8 syscall NewRgn
00000452 2457 movea.l A2, [A7]
00000454 A8EF syscall ScrollRect
00000456 2F0A move.l -[A7], A2
00000458 A8D9 syscall DisposRgn/DisposeRgn
0000045A 205F movea.l A0, [A7]+
0000045C 4E75 rts
label0000045E:
0000045E 4EED 0182 jmp [A5 + 0x182 /* export_44 */]
fn00000462:
00000462 6148 bsr +0x4A /* 000004AC */
00000464 3342 0000 move.w [A1 + 0x0], D2
00000468 3341 0002 move.w [A1 + 0x2], D1
0000046C 4EAD 00C2 jsr [A5 + 0xC2 /* export_20 */]
00000470 3E3C 00ED move.w D7, 0xED
00000474 B047 cmp.w D0, D7
00000476 6612 bne +0x14 /* 0000048A */
00000478 4EAD 044A jsr [A5 + 0x44A /* export_133 */]
0000047C 6154 bsr +0x56 /* 000004D2 */
0000047E 3342 0004 move.w [A1 + 0x4], D2
00000482 3341 0006 move.w [A1 + 0x6], D1
00000486 7000 moveq.l D0, 0x00
00000488 6002 bra +0x4 /* 0000048C */
label0000048A:
0000048A 7001 moveq.l D0, 0x01
label0000048C:
0000048C 4E75 rts
fn0000048E:
0000048E 611C bsr +0x1E /* 000004AC */
00000490 3342 0000 move.w [A1 + 0x0], D2
00000494 3341 0002 move.w [A1 + 0x2], D1
00000498 3E3C 00ED move.w D7, 0xED
0000049C 4EAD 044A jsr [A5 + 0x44A /* export_133 */]
000004A0 6130 bsr +0x32 /* 000004D2 */
000004A2 3342 0004 move.w [A1 + 0x4], D2
000004A6 3341 0006 move.w [A1 + 0x6], D1
000004AA 4E75 rts
fn000004AC:
000004AC 4EAD 00C2 jsr [A5 + 0xC2 /* export_20 */]
000004B0 0C40 0040 cmpi.w D0, 0x40 /* '@' */
000004B4 6604 bne +0x6 /* 000004BA */
000004B6 4EAD 00BA jsr [A5 + 0xBA /* export_19 */]
label000004BA:
000004BA 0C40 00ED cmpi.w D0, 0xED
000004BE 6612 bne +0x14 /* 000004D2 */
000004C0 2F0A move.l -[A7], A2
000004C2 4EAD 0A22 jsr [A5 + 0xA22 /* export_320 */]
000004C6 322A 0014 move.w D1, [A2 + 0x14]
000004CA 342A 0016 move.w D2, [A2 + 0x16]
000004CE 245F movea.l A2, [A7]+
000004D0 4E75 rts
fn000004D2:
000004D2 2F0A move.l -[A7], A2
000004D4 4EAD 0A22 jsr [A5 + 0xA22 /* export_320 */]
000004D8 4EAD 00C2 jsr [A5 + 0xC2 /* export_20 */]
000004DC 0440 F9F9 subi.w D0, 0xF9F9
000004E0 3F00 move.w -[A7], D0
000004E2 6604 bne +0x6 /* 000004E8 */
000004E4 4EAD 00BA jsr [A5 + 0xBA /* export_19 */]
label000004E8:
000004E8 4EAD 0C8A jsr [A5 + 0xC8A /* export_397 */]
000004EC 301F move.w D0, [A7]+
000004EE 6608 bne +0xA /* 000004F8 */
000004F0 D26A 0014 add.w D1, [A2 + 0x14]
000004F4 D46A 0016 add.w D2, [A2 + 0x16]
label000004F8:
000004F8 3541 0014 move.w [A2 + 0x14], D1
000004FC 3542 0016 move.w [A2 + 0x16], D2
00000500 245F movea.l A2, [A7]+
00000502 4E75 rts
fn00000504:
00000504 7001 moveq.l D0, 0x01
fn00000506:
00000506 2F02 move.l -[A7], D2
00000508 2400 move.l D2, D0
0000050A 4EAD 00C2 jsr [A5 + 0xC2 /* export_20 */]
0000050E 6714 beq +0x16 /* 00000524 */
00000510 4EAD 02C2 jsr [A5 + 0x2C2 /* export_84 */]
00000514 0C40 002C cmpi.w D0, 0x2C /* ',' */
00000518 670A beq +0xC /* 00000524 */
0000051A 4EAD 0462 jsr [A5 + 0x462 /* export_136 */]
0000051E 4A42 tst.w D2
00000520 6602 bne +0x4 /* 00000524 */
00000522 741E moveq.l D2, 0x1E
label00000524:
00000524 0202 0001 andi.b D2, 0x1
00000528 1B42 F24E move.b [A5 - 0xDB2], D2
0000052C 241F move.l D2, [A7]+
0000052E 4EED 00C2 jmp [A5 + 0xC2 /* export_20 */]
fn00000532:
00000532 48E7 E0E0 movem.l -[A7], D0,D1,D2,A0,A1,A2
00000536 4EAD 084A jsr [A5 + 0x84A /* export_261 */]
0000053A 486D ED88 pea.l [A5 - 0x1278]
0000053E A898 syscall GetPenState
00000540 4EAD 0A22 jsr [A5 + 0xA22 /* export_320 */]
00000544 41EA 0014 lea.l A0, [A2 + 0x14]
00000548 3F18 move.w -[A7], [A0]+
0000054A 3F10 move.w -[A7], [A0]
0000054C A893 syscall MoveTo
0000054E A89E syscall PenNormal
00000550 4A2D F24E tst.b [A5 - 0xDB2]
00000554 6606 bne +0x8 /* 0000055C */
00000556 486D FFF4 pea.l [A5 - 0xC]
0000055A A89D syscall PenPat
label0000055C:
0000055C 4CDF 0707 movem.l D0,D1,D2,A0,A1,A2, [A7]+
00000560 4E75 rts
fn00000562:
00000562 48E7 E0E0 movem.l -[A7], D0,D1,D2,A0,A1,A2
00000566 4EAD 0A22 jsr [A5 + 0xA22 /* export_320 */]
0000056A 4EAD 0A5A jsr [A5 + 0xA5A /* export_327 */]
0000056E 41EA 0014 lea.l A0, [A2 + 0x14]
00000572 30C1 move.w [A0]+, D1
00000574 3082 move.w [A0], D2
00000576 486D ED88 pea.l [A5 - 0x1278]
0000057A A899 syscall SetPenState
0000057C 4CDF 0707 movem.l D0,D1,D2,A0,A1,A2, [A7]+
00000580 4E75 rts
export_357:
00000582 526D FE16 addq.w [A5 - 0x1EA], 1
00000586 6100 01C8 bsr +0x1CA /* 00000750 */
0000058A 4A01 tst.b D1
0000058C 674E beq +0x50 /* 000005DC */
0000058E 48E7 E0E0 movem.l -[A7], D0,D1,D2,A0,A1,A2
00000592 700A moveq.l D0, 0x0A
00000594 4EAD 0352 jsr [A5 + 0x352 /* export_102 */]
00000598 302D F29A move.w D0, [A5 - 0xD66]
0000059C 6100 00DA bsr +0xDC /* 00000678 */
000005A0 14FC 002D move.b [A2]+, 0x2D /* '-' */
000005A4 302D F29C move.w D0, [A5 - 0xD64]
000005A8 6100 00CE bsr +0xD0 /* 00000678 */
000005AC 14FC 002D move.b [A2]+, 0x2D /* '-' */
000005B0 302D F298 move.w D0, [A5 - 0xD68]
000005B4 48C0 ext.l D0
000005B6 81FC 0064 divs.w D0, 0x64 /* 'd' */
000005BA 2200 move.l D1, D0
000005BC 6100 00BA bsr +0xBC /* 00000678 */
000005C0 302D F298 move.w D0, [A5 - 0xD68]
000005C4 C3FC 0064 muls.w D1, 0x64 /* 'd' */
000005C8 9041 sub.w D0, D1
000005CA 6100 00AC bsr +0xAE /* 00000678 */
000005CE 4EAD 007A jsr [A5 + 0x7A /* export_11 */]
000005D2 4CDF 0707 movem.l D0,D1,D2,A0,A1,A2, [A7]+
000005D6 536D FE16 subq.w [A5 - 0x1EA], 1
000005DA 4E75 rts
label000005DC:
000005DC 48E7 FE60 movem.l -[A7], D0,D1,D2,D3,D4,D5,D6,A1,A2
000005E0 6100 012A bsr +0x12C /* 0000070C */
000005E4 2F08 move.l -[A7], A0
000005E6 7602 moveq.l D3, 0x02
000005E8 7A2D moveq.l D5, 0x2D
000005EA 7C2F moveq.l D6, 0x2F
000005EC 780C moveq.l D4, 0x0C
000005EE 6100 00DC bsr +0xDE /* 000006CC */
000005F2 3B40 F29A move.w [A5 - 0xD66], D0
000005F6 6738 beq +0x3A /* 00000630 */
000005F8 781F moveq.l D4, 0x1F
000005FA 6100 00D0 bsr +0xD2 /* 000006CC */
000005FE 3B40 F29C move.w [A5 - 0xD64], D0
00000602 672C beq +0x2E /* 00000630 */
00000604 383C 07F8 move.w D4, 0x7F8
00000608 6100 00C2 bsr +0xC4 /* 000006CC */
0000060C 0C40 0063 cmpi.w D0, 0x63 /* 'c' */
00000610 6204 bhi +0x6 /* 00000616 */
00000612 0640 076C addi.w D0, 0x76C
label00000616:
00000616 0C40 0770 cmpi.w D0, 0x770
0000061A 6514 bcs +0x16 /* 00000630 */
0000061C 3B40 F298 move.w [A5 - 0xD68], D0
00000620 6100 009A bsr +0x9C /* 000006BC */
00000624 205F movea.l A0, [A7]+
00000626 4CDF 067F movem.l D0,D1,D2,D3,D4,D5,D6,A1,A2, [A7]+
0000062A 536D FE16 subq.w [A5 - 0x1EA], 1
0000062E 4E75 rts
label00000630:
00000630 4EED 0182 jmp [A5 + 0x182 /* export_44 */]
export_358:
00000634 526D FE16 addq.w [A5 - 0x1EA], 1
00000638 7E24 moveq.l D7, 0x24
0000063A 4EAD 044A jsr [A5 + 0x44A /* export_133 */]
0000063E 6100 0110 bsr +0x112 /* 00000750 */
00000642 4A01 tst.b D1
00000644 6744 beq +0x46 /* 0000068A */
00000646 48E7 E0E0 movem.l -[A7], D0,D1,D2,A0,A1,A2
0000064A 7008 moveq.l D0, 0x08
0000064C 4EAD 0352 jsr [A5 + 0x352 /* export_102 */]
00000650 302D F29E move.w D0, [A5 - 0xD62]
00000654 6122 bsr +0x24 /* 00000678 */
00000656 14FC 003A move.b [A2]+, 0x3A /* ':' */
0000065A 302D F2A0 move.w D0, [A5 - 0xD60]
0000065E 6118 bsr +0x1A /* 00000678 */
00000660 14FC 003A move.b [A2]+, 0x3A /* ':' */
00000664 302D F2A2 move.w D0, [A5 - 0xD5E]
00000668 610E bsr +0x10 /* 00000678 */
0000066A 4EAD 007A jsr [A5 + 0x7A /* export_11 */]
0000066E 4CDF 0707 movem.l D0,D1,D2,A0,A1,A2, [A7]+
00000672 536D FE16 subq.w [A5 - 0x1EA], 1
00000676 4E75 rts
fn00000678:
00000678 48C0 ext.l D0
0000067A 80FC 000A divu.w D0, 0xA /* '\n' */
0000067E 6102 bsr +0x4 /* 00000682 */
00000680 4840 swap.w D0
fn00000682:
00000682 0600 0030 addi.b D0, 0x30 /* '0' */
00000686 14C0 move.b [A2]+, D0
00000688 4E75 rts
label0000068A:
0000068A 48E7 FE60 movem.l -[A7], D0,D1,D2,D3,D4,D5,D6,A1,A2
0000068E 617C bsr +0x7E /* 0000070C */
00000690 2F08 move.l -[A7], A0
00000692 7602 moveq.l D3, 0x02
00000694 7A3A moveq.l D5, 0x3A
00000696 7C3A moveq.l D6, 0x3A
00000698 7817 moveq.l D4, 0x17
0000069A 6130 bsr +0x32 /* 000006CC */
0000069C 3B40 F29E move.w [A5 - 0xD62], D0
000006A0 783B moveq.l D4, 0x3B
000006A2 6128 bsr +0x2A /* 000006CC */
000006A4 3B40 F2A0 move.w [A5 - 0xD60], D0
000006A8 6122 bsr +0x24 /* 000006CC */
000006AA 3B40 F2A2 move.w [A5 - 0xD5E], D0
000006AE 610C bsr +0xE /* 000006BC */
000006B0 205F movea.l A0, [A7]+
000006B2 4CDF 067F movem.l D0,D1,D2,D3,D4,D5,D6,A1,A2, [A7]+
000006B6 536D FE16 subq.w [A5 - 0x1EA], 1
000006BA 4E75 rts
fn000006BC:
000006BC 41ED F298 lea.l A0, [A5 - 0xD68]
000006C0 A9C7 syscall DateToSeconds/Date2Secs
000006C2 A03A syscall SetDateTime
000006C4 4A40 tst.w D0
000006C6 6600 FF68 bne -0x96 /* 00000630 */
000006CA 4E75 rts
fn000006CC:
000006CC 7000 moveq.l D0, 0x00
label000006CE:
000006CE 4A42 tst.w D2
000006D0 6714 beq +0x16 /* 000006E6 */
000006D2 6118 bsr +0x1A /* 000006EC */
000006D4 67F8 beq -0x6 /* 000006CE */
000006D6 B205 cmp.b D1, D5
000006D8 6708 beq +0xA /* 000006E2 */
000006DA B206 cmp.b D1, D6
000006DC 6704 beq +0x6 /* 000006E2 */
label000006DE:
000006DE 4EED 0182 jmp [A5 + 0x182 /* export_44 */]
label000006E2:
000006E2 5303 subq.b D3, 1
000006E4 6BF8 bmi -0x6 /* 000006DE */
label000006E6:
000006E6 B044 cmp.w D0, D4
000006E8 62F4 bhi -0xA /* 000006DE */
000006EA 4E75 rts
fn000006EC:
000006EC 7200 moveq.l D1, 0x00
000006EE 121B move.b D1, [A3]+
000006F0 5342 subq.w D2, 1
000006F2 0C01 0039 cmpi.b D1, 0x39 /* '9' */
000006F6 6212 bhi +0x14 /* 0000070A */
000006F8 0C01 0030 cmpi.b D1, 0x30 /* '0' */
000006FC 650C bcs +0xE /* 0000070A */
000006FE C1FC 000A muls.w D0, 0xA /* '\n' */
00000702 D041 add.w D0, D1
00000704 0440 0030 subi.w D0, 0x30 /* '0' */
00000708 7E00 moveq.l D7, 0x00
label0000070A:
0000070A 4E75 rts
fn0000070C:
0000070C 4EAD 04C2 jsr [A5 + 0x4C2 /* export_148 */]
00000710 4EAD 02FA jsr [A5 + 0x2FA /* export_91 */]
00000714 4EAD 008A jsr [A5 + 0x8A /* export_13 */]
00000718 4A42 tst.w D2
0000071A 6700 FF14 beq -0xEA /* 00000630 */
0000071E 4E75 rts
export_359:
00000720 526D FE16 addq.w [A5 - 0x1EA], 1
00000724 48E7 F0E0 movem.l -[A7], D0,D1,D2,D3,A0,A1,A2
00000728 6126 bsr +0x28 /* 00000750 */
0000072A 723C moveq.l D1, 0x3C
0000072C 7600 moveq.l D3, 0x00
0000072E 342D F29E move.w D2, [A5 - 0xD62]
00000732 C5C1 muls.w D2, D1
00000734 362D F2A0 move.w D3, [A5 - 0xD60]
00000738 D483 add.l D2, D3
0000073A C5C1 muls.w D2, D1
0000073C 362D F2A2 move.w D3, [A5 - 0xD5E]
00000740 D682 add.l D3, D2
00000742 4EAD 01D2 jsr [A5 + 0x1D2 /* export_54 */]
00000746 4CDF 070F movem.l D0,D1,D2,D3,A0,A1,A2, [A7]+
0000074A 536D FE16 subq.w [A5 - 0x1EA], 1
0000074E 4E75 rts
fn00000750:
00000750 48E7 E0C0 movem.l -[A7], D0,D1,D2,A0,A1
00000754 41ED F294 lea.l A0, [A5 - 0xD6C]
00000758 7000 moveq.l D0, 0x00
0000075A A039 syscall ReadDateTime
0000075C 4EAD 0842 jsr [A5 + 0x842 /* export_260 */]
00000760 202D F294 move.l D0, [A5 - 0xD6C]
00000764 41ED F298 lea.l A0, [A5 - 0xD68]
00000768 A9C6 syscall SecondsToDate/Secs2Date
0000076A 4CDF 0307 movem.l D0,D1,D2,A0,A1, [A7]+
0000076E 4E75 rts
export_360:
00000770 526D FE16 addq.w [A5 - 0x1EA], 1
00000774 4EAD 04DA jsr [A5 + 0x4DA /* export_151 */]
00000778 536D FE16 subq.w [A5 - 0x1EA], 1
0000077C 4E75 rts
export_361:
0000077E 526D FE16 addq.w [A5 - 0x1EA], 1
00000782 2F08 move.l -[A7], A0
00000784 4EAD 02FA jsr [A5 + 0x2FA /* export_91 */]
00000788 4EAD 008A jsr [A5 + 0x8A /* export_13 */]
0000078C 7600 moveq.l D3, 0x00
0000078E 3802 move.w D4, D2
00000790 6710 beq +0x12 /* 000007A2 */
00000792 5344 subq.w D4, 1
label00000794:
00000794 4267 clr.w -[A7]
00000796 101B move.b D0, [A3]+
00000798 3F00 move.w -[A7], D0
0000079A A88D syscall CharWidth
0000079C D65F add.w D3, [A7]+
0000079E 51CC FFF4 dbf D4, -0xE /* 00000794 */
label000007A2:
000007A2 205F movea.l A0, [A7]+
000007A4 536D FE16 subq.w [A5 - 0x1EA], 1
000007A8 4EED 01AA jmp [A5 + 0x1AA /* export_49 */]
export_362:
000007AC 526D FE16 addq.w [A5 - 0x1EA], 1
000007B0 4A2D F01E tst.b [A5 - 0xFE2]
000007B4 6716 beq +0x18 /* 000007CC */
000007B6 0C40 F8BD cmpi.w D0, 0xF8BD
000007BA 660A bne +0xC /* 000007C6 */
000007BC 4EAD 00BA jsr [A5 + 0xBA /* export_19 */]
000007C0 2638 016A move.l D3, [0x0000016A /* Ticks */]
000007C4 6028 bra +0x2A /* 000007EE */
label000007C6:
000007C6 4EAD 0472 jsr [A5 + 0x472 /* export_138 */]
000007CA 601E bra +0x20 /* 000007EA */
label000007CC:
000007CC 4EAD 096A jsr [A5 + 0x96A /* export_297 */]
000007D0 303C 8135 move.w D0, 0x8135
000007D4 4EAD 0BF2 jsr [A5 + 0xBF2 /* export_378 */]
000007D8 422D F01D clr.b [A5 - 0xFE3]
000007DC 4EAD 0E52 jsr [A5 + 0xE52 /* export_454 */]
000007E0 528B addq.l A3, 1
000007E2 4EAD 118A jsr [A5 + 0x118A /* export_557 */]
000007E6 4A13 tst.b [A3]
000007E8 66E2 bne -0x1C /* 000007CC */
label000007EA:
000007EA 4EAD 0032 jsr [A5 + 0x32 /* export_2 */]
label000007EE:
000007EE 3B43 ECD4 move.w [A5 - 0x132C], D3
000007F2 536D FE16 subq.w [A5 - 0x1EA], 1
000007F6 4E75 rts
export_363:
000007F8 526D FE16 addq.w [A5 - 0x1EA], 1
000007FC 4EAD 00C2 jsr [A5 + 0xC2 /* export_20 */]
00000800 0C40 0028 cmpi.w D0, 0x28 /* '(' */
00000804 6618 bne +0x1A /* 0000081E */
00000806 4EAD 04AA jsr [A5 + 0x4AA /* export_145 */]
0000080A 4EAD 01A2 jsr [A5 + 0x1A2 /* export_48 */]
0000080E 673C beq +0x3E /* 0000084C */
00000810 6A0C bpl +0xE /* 0000081E */
00000812 4EAD 0032 jsr [A5 + 0x32 /* export_2 */]
00000816 3B43 ECD4 move.w [A5 - 0x132C], D3
0000081A 3B43 ECD2 move.w [A5 - 0x132E], D3
label0000081E:
0000081E 302D ECDC move.w D0, [A5 - 0x1324]
00000822 C0ED ECD4 mulu.w D0, [A5 - 0x132C]
00000826 4840 swap.w D0
00000828 322D ECDA move.w D1, [A5 - 0x1326]
0000082C C2ED ECD4 mulu.w D1, [A5 - 0x132C]
00000830 D041 add.w D0, D1
00000832 322D ECDC move.w D1, [A5 - 0x1324]
00000836 C2ED ECD2 mulu.w D1, [A5 - 0x132E]
0000083A D041 add.w D0, D1
0000083C 4840 swap.w D0
0000083E D0AD ECD6 add.l D0, [A5 - 0x132A]
00000842 0280 00FF FFFF andi.l D0, 0xFFFFFF
00000848 2B40 ECD2 move.l [A5 - 0x132E], D0
label0000084C:
0000084C 262D ECD2 move.l D3, [A5 - 0x132E]
00000850 4EAD 01D2 jsr [A5 + 0x1D2 /* export_54 */]
00000854 2B6D F1E0 ECC6 move.l [A5 - 0x133A], [A5 - 0xE20]
0000085A 2B6D F1E4 ECCA move.l [A5 - 0x1336], [A5 - 0xE1C]
00000860 536D FE16 subq.w [A5 - 0x1EA], 1
00000864 4EED 00FA jmp [A5 + 0xFA /* export_27 */]
